home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / texinfo / util / texi2dvi < prev    next >
Text File  |  1994-01-28  |  9KB  |  264 lines
  1. #!/bin/sh
  2. # texi2dvi -- smartly produce DVI files from texinfo sources
  3. #
  4. # Copyright (C) 1992, 1993 Free Software Foundation.
  5. #
  6. # This program is free software; you can redistribute it and/or modify
  7. # it under the terms of the GNU General Public License as published by
  8. # the Free Software Foundation; either version 2, or (at your option)
  9. # any later version.
  10. #
  11. # This program is distributed in the hope that it will be useful,
  12. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. # GNU General Public License for more details.
  15. #
  16. # You should have received a copy of the GNU General Public License
  17. # along with this program; if not, you can either send email to this
  18. # program's author (see below) or write to:
  19. #
  20. #              Free Software Foundation, Inc.
  21. #              675 Mass Ave.
  22. #              Cambridge, MA 02139, USA. 
  23. #
  24. # Please send bug reports, etc. to bug-texinfo@prep.ai.mit.edu
  25. # If possible, please send a copy of the output of the script called with
  26. # the `--debug' option when making a bug report. 
  27. #
  28. # Version 0.4
  29. # Last modified 26-Mar-93
  30. #
  31.  
  32. # Please note that in the interest of general portability, some common
  33. # bourne shell constructs were avoided because they weren't guaranteed to
  34. # be available in some earlier implementations.  I've tried to make this as
  35. # portable as possible. 
  36. #
  37. # Among the more interesting lossages I noticed with some bourne shells
  38. # are:
  39. #       1) Some don't have an `unset' builtin 
  40. #       2) In some implementations the `shift' builtin can't take a
  41. #          numerical argument. 
  42.  
  43. progname=`basename $0`
  44.  
  45. usage="Usage: ${progname} {-D} {-h} [file1] {file2} {...}
  46.        {--debug} {--help}
  47.  
  48.    Options in braces are optional.  Those in brackets are required. 
  49. "
  50.  
  51. if test $# -eq 0 ; then
  52.    echo "${usage}" 1>&2;
  53.    exit 1
  54. fi
  55.  
  56. backup_extension=".bak"
  57. texindex="texindex"
  58. tex="tex"
  59. bq="\`"  # To prevent hairy quoting and escaping later.
  60. eq="'"
  61. orig_pwd="`pwd`"
  62.  
  63. if test "z${TEXINDEX}" != "z" ; then
  64.    texindex="${TEXINDEX}"
  65. fi
  66.  
  67. if test "z${TEX}" != "z" ; then
  68.    tex="${TEX}"
  69. fi
  70.  
  71. # Save this so we can construct a new TEXINPUTS path for each file to be
  72. # processed.
  73. TEXINPUTS_orig="${TEXINPUTS}"
  74. export TEXINPUTS
  75.  
  76. # Parse command line options
  77.  
  78. # "unset" option variables to make sure they weren't accidentally
  79. # exported
  80. debug=""
  81.  
  82. # If you add new commands be sure to change the wildcards below to make
  83. # sure they are unambiguous (i.e. only match one possible long option)
  84. # Be sure to show at least one instance of the full long option name to
  85. # document what the long option is canonically called. 
  86. while test $# -gt 0 ; do
  87.    case z$1 in
  88.       z-D | z--debug | z--d* )
  89.          debug="t"
  90.          shift
  91.         ;;
  92.       z-h | z--help | z--h* )
  93.          echo "${usage}" 1>&2
  94.          exit 1
  95.         ;;
  96.       z-- )
  97.          shift
  98.          break 
  99.         ;;
  100.       z-* )
  101.          echo "${progname}: ${bq}${1}${eq} is not a valid option." 1>&2
  102.          echo "" 1>&2
  103.          echo "${usage}" 1>&2
  104.          exit 1
  105.         ;;
  106.       * )
  107.          break 
  108.         ;;
  109.    esac
  110. done
  111.  
  112. # See if there are any command line args left (which will be interpreted as
  113. # filename arguments)
  114. if test $# -eq 0 ; then
  115.    echo "${progname}: at least one file name is required as an argument." 1>&2
  116.    echo "" 1>&2
  117.    echo "${usage}" 1>&2
  118.    exit 1
  119. fi
  120.  
  121. test "z${debug}" = "zt" && set -x
  122.  
  123. # Texify files
  124. for command_line_filename in ${1+"$@"} ; do
  125.    # Roughly equivalent to `dirname ...`, but more portable
  126.    directory="`echo ${command_line_filename} | sed 's/\/[^\/]*$//'`"
  127.    filename_texi="`basename ${command_line_filename}`"
  128.    # Strip off the last extension part (probably .texinfo or .texi)
  129.    filename_noext="`echo ${filename_texi} | sed 's/\.[^.]*$//'`"
  130.  
  131.    # If directory and file are the same, then it's probably because there's
  132.    # no pathname component.  Set dirname to `.', the current directory.
  133.    if test "z${directory}" = "z${command_line_filename}" ; then
  134.       directory="."
  135.    fi
  136.  
  137.    # Source file might @include additional texinfo sources.  Put `.' and
  138.    # directory where source file(s) reside in TEXINPUTS before anything
  139.    # else.  `.' goes first to ensure that any old .aux, .cps, etc. files in
  140.    # ${directory} don't get used in preference to fresher files in `.'. 
  141.    TEXINPUTS=".:${directory}:${TEXINPUTS_orig}"
  142.  
  143.    # "Unset" variables that might have values from previous iterations and
  144.    # which won't be completely reset later.
  145.    definite_index_files=""
  146.  
  147.    # See if file exists here.  If it doesn't we're in trouble since, even
  148.    # though the user may be able to reenter a valid filename at the tex
  149.    # prompt (assuming they're attending the terminal), this script won't be
  150.    # able to find the right index files and so forth.
  151.    if test ! -r "${command_line_filename}" ; then
  152.       echo "${progname}: ${command_line_filename}: No such file or permission denied." 1>&2
  153.       continue; 
  154.    fi
  155.  
  156.    # Find all files having root filename with a two-letter extension,
  157.    # determine whether they're really index files, and save them.  Foo.aux
  158.    # is actually the cross-references file, but we need to keep track of
  159.    # that too.
  160.    possible_index_files="`eval echo ${filename_noext}.?? ${filename_noext}.aux`"
  161.    for this_file in ${possible_index_files} ; do
  162.       # If file is empty, forget it.  
  163.       if test ! -s "${this_file}" ; then
  164.          continue;
  165.       fi
  166.  
  167.       # Examine first character of file.  If it's not a backslash or
  168.       # single quote, then it's definitely not an index or xref file.
  169.       first_character="`sed -n '1s/^\(.\).*$/\1/p;q' ${this_file}`"
  170.       if test "${first_character}" = "\\" -o "${first_character}" = "'" ; then
  171.          definite_index_files="${definite_index_files} ${this_file}"
  172.       fi
  173.    done
  174.    orig_index_files="${definite_index_files}"
  175.    orig_index_files_sans_aux="`echo ${definite_index_files} \
  176.                                 | sed 's/'${filename_noext}'\.aux//;
  177.                                        s/^[ ]*//;s/[ ]*$//;'`"
  178.  
  179.    # Now save copies of original index files so we have some means of
  180.    # comparison later. 
  181.    for index_file_to_save in ${orig_index_files} ; do
  182.        cp "${index_file_to_save}" "${index_file_to_save}${backup_extension}"
  183.    done
  184.  
  185.    # Run texindex on current index files.  If they already exist, and
  186.    # after running TeX a first time the index files don't change, then
  187.    # there's no reason to run TeX again.  But we won't know that if the
  188.    # index files are out of date or nonexistent.
  189.    if test "${orig_index_files_sans_aux}" ; then
  190.       ${texindex} ${orig_index_files_sans_aux}
  191.    fi
  192.  
  193.    if ${tex} ${command_line_filename} ; then        # TeX run first time
  194.       definite_index_files=""
  195.       # Get list of new index files
  196.       possible_index_files="`eval echo ${filename_noext}.?? ${filename_noext}.aux`"
  197.       for this_file in ${possible_index_files} ; do
  198.          # If file is empty, forget it.
  199.          if test ! -s ${this_file} ; then
  200.             continue;
  201.          fi
  202.  
  203.          # Examine first character of file.  If it's not a backslash or
  204.          # single quote, then it's definitely not an index or xref file.
  205.          first_character="`sed -n '1s/^\(.\).*$/\1/p;q' ${this_file}`"
  206.          if test "${first_character}" = "\\" -o "${first_character}" = "'" ; then
  207.             definite_index_files="${definite_index_files} ${this_file}"
  208.          fi
  209.       done
  210.       new_index_files="${definite_index_files}"
  211.       new_index_files_sans_aux="`echo ${definite_index_files} \
  212.                                   | sed 's/'${filename_noext}'\.aux//;
  213.                                          s/^[ ]*//;s/[ ]*$//;'`"
  214.  
  215.       # If old and new list don't at least have the same file list, then one
  216.       # file or another has definitely changed.  
  217.       if test "${orig_index_files}" != "${new_index_files}" ; then
  218.          index_files_changed_p=t
  219.       else
  220.          # File list is the same.  We must compare each file until we find a
  221.          # difference.  
  222.          index_files_changed_p=""
  223.          for this_file in ${new_index_files} ; do
  224.             # cmp -s will return nonzero exit status if files differ. 
  225.             cmp -s "${this_file}" "${this_file}${backup_extension}"
  226.             if test $? -ne 0  ; then
  227.                # We only need to keep comparing until we find *one* that
  228.                # differs, because we'll have to run texindex & tex no
  229.                # matter what. 
  230.                index_files_changed_p=t
  231.                break
  232.             fi
  233.          done
  234.       fi
  235.  
  236.       # If index files have changed since TeX has been run, or if the aux
  237.       # file wasn't present originally, run texindex and TeX again.
  238.       if test "${index_files_changed_p}"  ; then
  239.          retval=0
  240.          if test "${new_index_files_sans_aux}" ; then
  241.             ${texindex} ${new_index_files_sans_aux} 
  242.             retval=$?
  243.          fi
  244.          if test ${retval} -eq 0 ; then
  245.             ${tex} "${command_line_filename}"
  246.          fi
  247.       fi
  248.    fi
  249.  
  250.    # Generate list of files to delete, then call rm once with the entire
  251.    # list.  This is significantly faster than multiple executions of rm. 
  252.    file_list=""
  253.    for file in ${orig_index_files} ; do
  254.        file_list="${file_list} ${file}${backup_extension}"
  255.    done
  256.    if test "${file_list}" ; then
  257.       rm -f ${file_list}
  258.    fi
  259. done
  260.  
  261. #
  262. # eof
  263. #
  264.